﻿Imports System.IO

Public Class frmRoomList

    Private Sub frmReminder_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Cursor = Cursors.WaitCursor
        Dim fn As New Functions
        Dim str As String
        str = "Select 1 Code, 'BW KL' Name "
        str = str + " UNION ALL "
        str = str + "Select 2 Code, 'BW Ipoh' Name "
        Dim dt As DataTable = fn.DoQueryReturnDT(str)
        GridDivision.DataSource = dt

        str = "Select 1 Floor, 101 RoomNo, 'Deluxe' RoomType, 'Front' Location, 'Hotel' Division"
        str = str + " UNION ALL "
        str = str + "Select 1 Floor, 102 RoomNo, 'Deluxe' RoomType, 'Front' Location, 'Hotel' Division"
        str = str + " UNION ALL "
        str = str + "Select 1 Floor, 103 RoomNo, 'Deluxe' RoomType, 'Front' Location, 'Hotel' Division"

        dt = fn.DoQueryReturnDT(str)
        GridDetail.DataSource = dt

        Me.Cursor = Cursors.Default
    End Sub

    
End Class
